Class to calculate the correlation distance
Function to calculate the Manhattan distance between vectors A real variable with the distance
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(correlation_distance) | :: | distance | 
                 A   | 
        |||
| real(kind=wp), | intent(inout), | dimension(:,:) | :: | vector1 | 
                 A real vector  | 
        |
| real(kind=wp), | intent(inout), | dimension(:,:) | :: | vector2 | 
                 A real vector  | 
        
A real vector
type,extends(distance_base) :: correlation_distance !! Class to calculate the correlation distance contains procedure,public :: calculate => calculate_correlation_distance end type correlation_distance